# clear working environment
rm(list = ls())

#### load the required packages ####
library(tidyverse)
library(patchwork)

# load both ggplot objects
gg1 <- read_rds("data/identification-assumptions-panel-a.rds")
gg2 <- read_rds("data/identification-assumptions-panel-b.rds")

# combine into one figure
gg1/gg2

ggsave("figures/identification-assumptions-plot.pdf", width = 6.5, height = 6, units = "in", bg = "white")
